home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / drag&d2a / drag.frm
Text File  |  1999-09-10  |  5KB  |  161 lines
  1. VERSION 2.00
  2. Begin Form frmDrag 
  3.    Caption         =   "Drag & Use"
  4.    ClientHeight    =   3015
  5.    ClientLeft      =   1890
  6.    ClientTop       =   3255
  7.    ClientWidth     =   6435
  8.    Height          =   3705
  9.    Left            =   1830
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3015
  14.    ScaleWidth      =   6435
  15.    Top             =   2625
  16.    Width           =   6555
  17.    Begin CommandButton Command1 
  18.       Caption         =   "Exit"
  19.       Height          =   375
  20.       Left            =   5760
  21.       TabIndex        =   3
  22.       Top             =   2640
  23.       Width           =   735
  24.    End
  25.    Begin DriveListBox Drive1 
  26.       Height          =   315
  27.       Left            =   240
  28.       TabIndex        =   2
  29.       Top             =   120
  30.       Width           =   1935
  31.    End
  32.    Begin FileListBox File1 
  33.       FontBold        =   -1  'True
  34.       FontItalic      =   0   'False
  35.       FontName        =   "System"
  36.       FontSize        =   9.75
  37.       FontStrikethru  =   0   'False
  38.       FontUnderline   =   0   'False
  39.       Height          =   1950
  40.       Left            =   2400
  41.       Pattern         =   "*.txt;*.bmp;*.exe;*.hlp"
  42.       TabIndex        =   1
  43.       Top             =   120
  44.       Width           =   2055
  45.    End
  46.    Begin DirListBox Dir1 
  47.       FontBold        =   -1  'True
  48.       FontItalic      =   0   'False
  49.       FontName        =   "System"
  50.       FontSize        =   9.75
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   1380
  54.       Left            =   240
  55.       TabIndex        =   0
  56.       Top             =   600
  57.       Width           =   1935
  58.    End
  59.    Begin Image Image2 
  60.       Height          =   495
  61.       Left            =   2040
  62.       Top             =   2160
  63.       Width           =   2550
  64.    End
  65.    Begin Image Image1 
  66.       BorderStyle     =   1  'Fixed Single
  67.       Height          =   1935
  68.       Left            =   4680
  69.       Stretch         =   -1  'True
  70.       Top             =   120
  71.       Width           =   1725
  72.    End
  73.    Begin Menu mnufile 
  74.       Caption         =   "&File"
  75.       Begin Menu mnuback 
  76.          Caption         =   "Back to EasyWin"
  77.       End
  78.    End
  79. End
  80.  
  81. Sub Command1_Click ()
  82. End
  83.  
  84. End Sub
  85.  
  86. Sub Dir1_Change ()
  87.     file1.Path = Dir1.Path
  88. End Sub
  89.  
  90. Sub Drive1_Change ()
  91.     Dir1.Path = Drive1.Drive
  92. End Sub
  93.  
  94. Sub File1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  95.     file1.DragIcon = Drive1.DragIcon
  96.     file1.Drag
  97. End Sub
  98.  
  99. Sub Form_Load ()
  100.     frmdrag.Width = 6525
  101.     frmdrag.Height = 3500
  102. End Sub
  103.  
  104. Sub Image1_DragDrop (Source As Control, X As Single, Y As Single)
  105.     ' Get last three letters of the dragged filename
  106.     temp = Right$(file1.FileName, 3)
  107.     ' If dragged file is in the root, append filename.
  108.     If Mid(file1.Path, Len(file1.Path)) = "\" Then
  109.       dropfile = file1.Path & file1.FileName
  110.     ' If dragged file is not in root, append "\" and filename.
  111.     Else
  112.       dropfile = file1.Path & "\" & file1.FileName
  113.     End If
  114.       
  115.     image1.Picture = LoadPicture("")
  116.     Select Case temp
  117.     Case "txt"
  118.         X = Shell("Notepad " + dropfile, 1)
  119.     Case "bmp", "wmf", "rle", "ico"
  120.         image1.Picture = LoadPicture(dropfile)
  121.     Case "exe"
  122.         X = Shell(dropfile, 1)
  123.     Case "hlp"
  124.         X = Shell("WinHelp " + dropfile, 1)
  125.     Case "wri"
  126.         X = Shell("write " + dropfile, 1)
  127. 'add your own case example
  128.     'case "mak"
  129.     '   x = shell("c:\vb\vb.exe + dropfile, 1)
  130.     Case Else
  131.         nl = Chr$(10) + Chr$(13)
  132.         msg = "Try one of these file types:"
  133.         msg = nl + msg + nl + nl + "     .txt, .bmp, .exe, .hlp"
  134.         MsgBox msg
  135.     End Select
  136. End Sub
  137.  
  138. Sub Image1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
  139.     Select Case State
  140.     Case 0
  141.         ' Display a new icon when the source
  142.         ' enters the drop area.
  143.         file1.DragIcon = Dir1.DragIcon
  144.     Case 1
  145.         ' Display the original DragIcon when the source
  146.         ' leaves the drop area.
  147.         file1.DragIcon = Drive1.DragIcon
  148.     End Select
  149.  
  150. ' Note that Dir1.DragIcon and Drive1.DragIcon have been
  151. ' set at design time. This allows you to load the "Enter
  152. ' and "Leave" icons for File1 at runtime without requiring
  153. ' that the user has those icons are on disc.
  154.  
  155. End Sub
  156.  
  157. Sub mnuback_Click ()
  158. End
  159. End Sub
  160.  
  161.